home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / comm / ums / pint.lha / UMS / Rexx / Script.pint < prev    next >
Text File  |  1997-03-04  |  913b  |  53 lines
  1. /*
  2.  
  3.     $VER: Script.pint 1.0 (6.6.96)
  4.  
  5.    Author:
  6.     Matthias Scheler <tron@lyssa.owl.de>
  7.  
  8.    Updated for PINT (22.2.97):
  9.     Magnus Heino (nd95mho@Student.HGS.SE)
  10.  
  11.    Function:
  12.     Start ARexx script from PINT via FileRequester
  13.  
  14.    History:
  15.     0.1   initial version
  16.     1.0   release version
  17.  
  18.    Example for "ums.config":
  19.     ( PINT.Rexx
  20.     ...
  21.         "#? F10 Script.pint Rexx:\n"
  22.     ...
  23.     )
  24.  
  25. */
  26.  
  27. PARSE ARG Drawer
  28.  
  29. /* get public screen name */
  30.  
  31. OPTIONS RESULTS
  32.  
  33. 'INFO SCREEN'
  34. ScreenName=RESULT
  35.  
  36. /* Ask for file */
  37.  
  38. TempFile='T:IN.script'
  39. SHELL COMMAND 'RequestFile' Drawer 'PATTERN #?.intui TITLE "Select ARexx Script" PUBSCREEN' ScreenName '>'||TempFile
  40.  
  41. /* Get filename */
  42.  
  43. IF OPEN('FileName',TempFile,'READ')=0 THEN EXIT 5
  44. Path=READLN('FileName')
  45. CLOSE('FileName')
  46.  
  47. SHELL COMMAND 'Delete' TempFile 'QUIET'
  48.  
  49. /* Start Script!
  50.    If no script was selected Path is empty so that nothing happens. */
  51.  
  52. "'"Path"'"
  53.